home *** CD-ROM | disk | FTP | other *** search
/ Georgia Wildfire Prevention / Georgia Wildfire Prevention.iso / pc / media / dirs / BackUp / WildFire.dir / 00006_Script_MovieFrame Behavior < prev    next >
Text File  |  2002-10-15  |  681b  |  36 lines
  1. Property LoopGuard, MovieTimer, MovieEnd, VideoMemberName
  2.  
  3. on new me
  4.   LoopGuard = 0
  5.   MovieTimer = 0
  6. end
  7.  
  8. on prepareframe me
  9.   if LoopGuard = 0 then
  10.     sendallsprites(#MovieActionDown, "Pause")
  11.     sendallsprites(#MemberNameCall)
  12.     LoopGuard = 1
  13.   end if
  14. end
  15.  
  16. on MemberResponse me, MemName
  17.   VideoMemberName = MemName
  18. end
  19.  
  20. on exitframe me
  21.   if soundbusy(1) = 0 then
  22.     if MovieTimer = 0 then
  23.       set MovieTimer = the Ticks
  24.       MovieEnd = Member(VideoMemberName).duration + MovieTimer
  25.       sendallsprites(#movieActionDown, "Play")
  26.     else if the Ticks > MovieEnd then
  27.       go the frame = + 1
  28.     end if
  29.   end if
  30.   go the frame
  31. end
  32.  
  33.  
  34.  
  35.  
  36.